home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / pascal / xlibpas2.zip / XLIB2.PAS < prev    next >
Pascal/Delphi Source File  |  1994-06-12  |  17KB  |  459 lines
  1. {╔══════════════════════════════════════════════════════════════════════════╗
  2.  ║                                                                          ║
  3.  ║                   XLIB v2.0 for BORLAND/TURBO PASCAL 7.0                 ║
  4.  ║                Tristan Tarrant ( tristant@cogs.susx.ac.uk )              ║
  5.  ║                                                                          ║
  6.  ╠══════════════════════════════════════════════════════════════════════════╣
  7.  ║ Credits :                                                                ║
  8.  ║   Michael Abrash - Concept and Algorithms                                ║
  9.  ║   Themie Gouthas - Original code                                         ║
  10.  ║   Michael McKenzie - Lots of code                                        ║
  11.  ║   Tore Bastiansen - Virtual VSync code                                   ║
  12.  ╚══════════════════════════════════════════════════════════════════════════╝}
  13.  
  14. {$A+,B-,E-,G+,N-,O-,P-,Q-,S-,T-,X+}
  15.  
  16. {$IFDEF DPMI}
  17. {$C FIXED PRELOAD PERMANENT}
  18. {$ENDIF}
  19.  
  20. Unit XLib2;
  21.  
  22. Interface
  23.  
  24. Type
  25.     Vertex = record
  26.         x, y : word;
  27.     end;
  28.     VBMInfoStruc = record
  29.         Size, ImageWidth, ImageHeight : word;
  30.     end;
  31.     VBMAlignmentStruc = record
  32.         ImagePtr, MaskPtr : word;
  33.     end;
  34.     AlignmentHeader = record
  35.         size, ImageWidth, ImageHeight : word;
  36.         alignments : array[0..3] of
  37.         record
  38.              ImagePtr, MaskPtr : word;
  39.         end;
  40.     end;
  41.     LBMHeader = record
  42.         width, height : byte;
  43.     end;
  44.     PAlignmentHeader = ^AlignmentHeader;
  45.  
  46. Const
  47.     XMode320x200  = 0;
  48.     XMode320x240  = 1;
  49.     XMode360x200  = 2;
  50.     XMode360x240  = 3;
  51.     XMode376x282  = 4;
  52.     XMode320x400  = 5;
  53.     XMode320x480  = 6;
  54.     XMode360x400  = 7;
  55.     XMode360x480  = 8;
  56.     XMode360x360  = 9;
  57.     XMode376x308  = 10;
  58.     XMode376x564  = 11;
  59.     XMode256x200  = 12;
  60.     XMode256x240  = 13;
  61.     XMode256x224  = 14;
  62.     XMode256x256  = 15;
  63.     XMode360x270  = 16;
  64.     XMode400x300  = 17;
  65.  
  66.     LastMode      = 17;
  67.  
  68.     RBackward     = 0;
  69.     RForward      = 1;
  70.     InvalidXMode  = -1;
  71.     Error         = 1;
  72.     AlignData     = 6;
  73.     LeftPressed   = 1;
  74.     RightPressed  = 2;
  75.  
  76.     X320Y200 : array[0..4] of word =
  77.         ( $0200, $0014, $E317, 320, 200 );
  78.     X320Y240 : array[0..12] of word =
  79.         ( $0AE3, $0D06, $3E07, $4109, $EA10, $AC11, $DF12, $0014, $E715, $0616,
  80.                 $E317, 320, 240 );
  81.     X360Y200 : array[0..10] of word =
  82.         ( $08E7, $6B00, $5901, $5A02, $8E03, $5E04, $8A05, $0014, $E317, 360,
  83.                 200 );
  84.     X360Y240 : array[0..19] of word =
  85.         ( $11E7, $6b00, $5901, $5A02, $8E03, $5E04, $8A05, $0D06, $3E07, $4109,
  86.                 $EA10, $AC11, $DF12, $2D13, $0014, $E715, $0616, $E317, 360, 240 );
  87.     X376Y282 : array[0..20] of word =
  88.         ( $12E7, $6e00, $5d01, $5e02, $9103, $6204, $8f05, $6206, $f007, $6109,
  89.                 $310f, $3710, $8911, $3312, $2f13, $0014, $3C15, $5C16, $e317, 376,
  90.                 282 );
  91.     X256Y400 : array[0..11] of word  =
  92.         ( $08E3, $5f00, $3f01, $4202, $9f03, $4c04, $0005, $4009, $0014, $E317,
  93.                 256, 400 );
  94.     X256Y480 : array[0..18] of word =
  95.         ( $10e3, $5f00, $3f01, $4202, $9f03, $4c04, $0005, $0d06, $3e07, $4009,
  96.                 $ea10, $ac11, $df12, $0014, $e715, $0616, $e317, 256, 480 );
  97.     X320Y400 : array[0..5] of word =
  98.         ( $03e3, $4009, $0014, $e317, 320, 400 );
  99.     X320Y480 : array[0..12] of word =
  100.         ( $0AE3, $0D06, $3E07, $4009, $EA10, $AC11, $DF12, $0014, $E715, $0616,
  101.                 $E317, 320, 480 );
  102.     X360Y400 : array[0..11] of word =
  103.         ( $09E7, $6B00, $5901, $5A02, $8E03, $5E04, $8A05, $4009, $0014, $E317,
  104.                 360, 400 );
  105.     X360Y480 : array[0..19] of word =
  106.         ( $11E7, $6B00, $5901, $5A02, $8E03, $5E04, $8A05, $0D06, $3E07, $4009,
  107.                 $EA10, $AC11, $DF12, $2D13, $0014, $E715, $0616, $E317, 360, 480 );
  108.     X360Y360 : array[0..17] of word =
  109.         ( $0FE7, $6b00, $5901, $5A02, $8E03, $5E04, $8A05, $4009, $8810, $8511,
  110.                 $6712, $2D13, $0014, $6D15, $BA16, $E317, 360, 360 );
  111.     X376Y308 : array[0..20] of word =
  112.         ( $12E7, $6E00, $5D01, $5E02, $9103, $6204, $8F05, $6206, $0F07, $4009,
  113.                 $310F, $3710, $8911, $3312, $2F13, $0014, $3C15, $5C16, $E317, 376,
  114.                 308 );
  115.     X376Y564 : array[0..20] of word =
  116.         ( $12E7, $6E00, $5D01, $5E02, $9103, $06204, $8F05, $6206, $F007, $6109,
  117.                 $310F, $3710, $8911, $3312, $2F13, $0014, $3C15, $5C16, $E317, 376,
  118.                 564 );
  119.     X256Y200 : array[0..10] of word =
  120.         ( $08e3, $5f00, $3f01, $4202, $9f03, $4c04, $0005, $0014, $e317, 256,
  121.                 200 );
  122.     X256Y240 : array[0..18] of word =
  123.         ( $10e3, $5f00, $3f01, $4202, $9f03, $4c04, $0005, $0d06, $3e07, $4109,
  124.                 $ea10, $ac11, $df12, $0014, $e715, $0616, $e317, 256, 240 );
  125.     X256Y224 : array[0..20] of word =
  126.         ( $12e3, $5f00, $3f01, $4202, $8203, $4a04, $9a05, $0b06, $3e07, $0008,
  127.                 $4109, $da10, $9c11, $bf12, $2013, $0014, $c715, $0416, $e317, 256,
  128.                 224 );
  129.     X256Y256 : array[0..20] of word =
  130.         ( $12e3, $5f00, $3f01, $4002, $8203, $4a04, $9a05, $2306, $b207, $0008,
  131.             $6109, $0a10, $ac11, $ff12, $2013, $0014, $0715, $1a16, $e317, 256,
  132.             256 );
  133.     X360Y270 : array[0..20] of word =
  134.         ( $12e7, $6b00, $5901, $5a02, $8e03, $5e04, $8a05, $3006, $f007, $0008,
  135.             $6109, $2010, $a911, $1b12, $2d13, $0014, $1f15, $2f16, $e317, 360,
  136.             270 );
  137.     X400Y300 : array[0..20] of word =
  138.         ( $12a7, $7100, $6301, $6402, $9203, $6504, $8205, $4606, $1f07, $0008,
  139.             $4009, $3110, $8011, $2b12, $3213, $0014, $2f15, $4416, $e317, 400,
  140.             300 );
  141.  
  142.     ModeTable : array[0..17] of word =
  143.         ( Ofs(X320Y200[0]), Ofs(X320Y240[0]), Ofs(X360Y200[0]), Ofs(X360Y240[0]),
  144.             Ofs(X376Y282[0]), Ofs(X320Y400[0]), Ofs(X320Y480[0]), Ofs(X360Y400[0]),
  145.             Ofs(X360Y480[0]), Ofs(X360Y360[0]), Ofs(X376Y308[0]), Ofs(X376Y564[0]),
  146.             Ofs(X256Y200[0]), Ofs(X256Y240[0]), Ofs(X256Y224[0]), Ofs(X256Y256[0]),
  147.             Ofs(X360Y270[0]), Ofs(X400Y300[0]) );
  148.  
  149.     MirrorTable : array[0..255] of byte =
  150.         ( 0,128, 64,192, 32,160, 96,224, 16,144, 80,208, 48,176,112,240,
  151.             8,136, 72,200, 40,168,104,232, 24,152, 88,216, 56,184,120,248,
  152.             4,132, 68,196, 36,164,100,228, 20,148, 84,212, 52,180,116,244,
  153.          12,140, 76,204, 44,172,108,236, 28,156, 92,220, 60,188,124,252,
  154.             2,130, 66,194, 34,162, 98,226, 18,146, 82,210, 50,178,114,242,
  155.          10,138, 74,202, 42,170,106,234, 26,154, 90,218, 58,186,122,250,
  156.             6,134, 70,198, 38,166,102,230, 22,150, 86,214, 54,182,118,246,
  157.          14,142, 78,206, 46,174,110,238, 30,158, 94,222, 62,190,126,254,
  158.             1,129, 65,193, 33,161, 97,225, 17,145, 81,209, 49,177,113,241,
  159.             9,137, 73,201, 41,169,105,233, 25,153, 89,217, 57,185,121,249,
  160.             5,133, 69,197, 37,165,101,229, 21,149, 85,213, 53,181,117,245,
  161.          13,141, 77,205, 45,173,109,237, 29,157, 93,221, 61,189,125,253,
  162.             3,131, 67,195, 35,163, 99,227, 19,147, 83,211, 51,179,115,243,
  163.          11,139, 75,203, 43,171,107,235, 27,155, 91,219, 59,187,123,251,
  164.             7,135, 71,199, 39,167,103,231, 23,151, 87,215, 55,183,119,247,
  165.          15,143, 79,207, 47,175,111,239, 31,159, 95,223, 63,191,127,255 );
  166.  
  167.     PelPanMask : array[0..3] of byte =
  168.         ( 0, 2, 4, 6 );
  169.     LeftClipPlaneMask  : array[0..3] of byte =
  170.         ( $0F, $0E, $0C, $08 );
  171.     RightClipPlaneMask : array[0..3] of byte =
  172.         ( $0F, $01, $03, $07 );
  173.     ColumnMask : array[0..3] of byte =
  174.         ( $11, $22, $44, $88 );
  175.     LeftMaskTable : array[0..8] of byte =
  176.         ( 0, $ff, $ee, 0, $cc, 0, 0, 0, $88 );
  177.     RightMaskTable: array[0..8] of byte =
  178.         ( 0, $11, $33, 0, $77, 0, 0, 0, $ff );
  179.     InitMouseDef : array[0..13] of byte =
  180.         (1,3,7,15,31,63,127,255,31,27,48,48,96,96);
  181.     LeftDelay : array[0..3] of byte =
  182.         ( 0, 1, 2, 4 );
  183.     RightDelay : array[0..3] of byte =
  184.         ( 0, 4, 2, 1 );
  185.     PS2Cards : array[0..12] of byte = ( 0,1,2,2,4,3,2,5,6,2,8,7,8 );
  186.  
  187.     WhenToDraw : array[0..31] of byte = ( 0, 1, 1, 2, 1, 2, 2, 3, 1, 2, 2, 3,
  188.             2, 3, 3, 4, 1, 2, 2, 3, 2, 3, 3, 4, 2, 3, 3, 4, 3, 4, 4, 5 );
  189.  
  190. Var
  191.     InGraphics,
  192.     ErrorValue,
  193.     FontDriverActive,
  194.     CharHeight,
  195.     CharWidth,
  196.     FirstChar,
  197.     UserChHeight,
  198.     UserChWidth,
  199.     UserFirstCh,
  200.     DoubleScanFlag : Byte;
  201.     CurrXMode,
  202.     ScrnPhysicalByteWidth,
  203.     ScrnPhysicalPixelWidth,
  204.     ScrnPhysicalHeight,
  205.     SplitScrnOffs,
  206.     SplitScrnScanLine,
  207.     SplitScrnVisibleHeight,
  208.     SplitScrnActive,
  209.     Page0Offs,
  210.     Page1Offs,
  211.     Page2Offs,
  212.     ScrnLogicalByteWidth,
  213.     ScrnLogicalPixelWidth,
  214.     ScrnLogicalHeight,
  215.     MaxScrollX,
  216.     MaxScrollY,
  217.     DoubleBufferActive,
  218.     TripleBufferActive,
  219.     VisiblePageIdx,
  220.     HiddenPageOffs,
  221.     VisiblePageOffs,
  222.     WaitingPageOff